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UUUUUUUUUUUUUUU 
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=a 
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DS et at pee Bet et pt ed bet Bet he 
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J1 
**F ILE**1D**MOUDK1 


MM MM 0 UU DDDDDDDD KK Ke 11 ; 
MM MM 000000 UU UU DDDDDDDD KK KK 11 : 
MMMM 6MMMM 600 00 UU DD DD KK KK 1111 : 
MMMM MMMM «600 00 UU UU DD DD KK KK 1111 : 
mM 60MM UMM «(O00 00 DD DD KK KK 11 ; 
MM 66MM MM «(OO 00 UU UU DD DD KK KK 11 : 
MM MM 600 00 UU DD DD KKKKKK 11 : 
MM MM 600 00 UU UU DD DD KKKKKK 11 ; 
MM MM 00 00 UU DD DD KK KK 11 : 
MM MM 00 00 UU UU DD DD KK KK 11 > 
MM MM 00 00 UU UU OD DD KK KK 11 coos : 
MM MM 00 00 UU UU DD DD KK KK 11 eee ° 
MM MM 000000 UUUUUUUUUU =~ DDDDDDDD KK KK 111111 cece : 
MM MM 000000 UUUUUUUUUU = DDDDDDDD KK KK 111111 cece ‘ 
LL IIIT! SSSSSSSS ; 
LL HII SSSSSSSS ; 
LL I] SS : 
LL II SS ; 
LL I] SS : 
LL il SS : 
LL I] SSSSSS : 
LL II SSSSSS : 
LL I] SS “ 
LL I] SS ; 
LL II SS . 
LL I] SS 

LLELLLLLLLL IIT] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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MODULE MOUDK1 ( ateenad os iat 
DENT > Pretty . 
BEGIN 


' 
leaeeneenneneneneetententennentertrererreceeteerententnntnetnaenntnnnnetentns 
if 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH A AND ad Le 


Soooooooo 


SSSSsssssssssss 
lola lolololo) 


*® 

® 

® 

® 

& 

® 

te 

® 

i I . 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
a 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
x 

® 

® 

® 

ke 

® 

® 

* 


:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


!t DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


RMN 2 2 3 3 3 SSS BI OOOOOOOOO 
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S NOT SUPPLIED BY DIGITAL. 


SSssssssss 


161 
HI 


MPoPOToro 


PTTTITITILILITLL LLL LLL LLL LLL LIL LLL Lit litiiiiiiiiiiiiiiiiit 
‘a 

FACILITY: MOUNT Utility Structure Level 1 

i ABSTRACT: 


This routine performs all of the mechanics of mounting a disk, 
given as input the parsed and partially validated command Line. 


i ENVIRONMENT: 


SOoooooooooooo 
oo 


oo 


uw 
sss oo 


STARLET operating system, including privileged system services 
and internal exec routines. 


PWN (OC ODNOAUEWN (“OO ONAUESWN —OODNOUS WN “OODNOU SW 


v04-001 HHO0S6 Hai Huang _ 11-Sep-1984 
Return SS$_VOLINV status when appropriate to facilitate 


ka a a a tt tt at at tt I OOOO 
- . 
» 


TRTETE ETO IOIOIOTEIOO Ieee eee eee ere eee TE Terercrerererererere rere irri 
BEEBE SE & FWA AAI Gan RNP NPINONINONIDY 2 


' 
§ ! 
' 
me 1! 
45 1 inn 
B266 ‘ 
004 : 
3 Boe8 AUTHOR: Andrew C. Goldstein, CREATION DATE: 17-Oct-1977 17:41 
20 950 i MODIFIED BY: 
2§ 36 v04-002 HHO05S7 Hai Huang 12-Sep-1984 
5 5 Clear DEVSV_MNT bit along with UCBS$L_VCB on error 
55 : path. 
6 
57 $ 


Ooo 


SSS SSSSSS 
PAA UN 
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retry on volume invalid errors. 

KHO045 Hai Huang 10-Aug-1984 

Take out the ium tan for shared foreign mounts. 

HH0041 mt gt q 24-J ea 

Remove REQUIRE feos VASLIB.OBJJMOUNTMSG.B32' 

LMPO2 ark Pilan 28-Mar-1984 9:48 

thange uc a _ownuic” to ORBSL. NOUNER and utBsu. VPROT to 

HHOO0S Hai Huang 29-F eb-1984 

Fix truncation errors (again). 


HHOO002 Hai Huang 15-Feb-1984 
Add ob-wide mount support, i.e. always deallocate 
mount List entries to paged-pool in condition handler. 


Ly00B5 Larry Yetto 10-FEB-1984 11:25 
FY truncation errors. 
CDS0002 Christian D. Saether 26-Aug-1983 
Fill in VCBST _VOLCKNAM field. 
CdS0001 Christian D. Saether 21-Aug-1983 


Add calls to check for consistent mounting on 
cluster available devices. 


TCM0001 Trudy C. Matthews 21-Jun-1983 
Increment refcount stored in UCB on mount. 


DMW4043 DMWalp 7-Jun-1983 
Remove (S)LOG_ENTRY 


$TJ50311 Steven T. Jeffre 11-Feb-1983 
Make all references to PHYS_NAM E "Thdexed by DEVICE_INDEX. 


$TJ0300 Ste Jeffr 18-May-1982 
Add support for ote SNOUNLORD must ition. 


$TJ0242 Steven T. Jeffrey 30-Mar-1982 

= Remove code that sets the doviee’ allocation eccose mode. 
The device will be manually deallocated in VMOUNT. 

= Read the first block of the storage map a ~ te it 
back to the disk to determine if the volume is hardware 
write-locked. 


$TJ0192 Steven T. set trers.. . 02-Feb-1982 
Use global buffers defined in MOUDK2 


V02-008 ACG0246 Andrew uh OU4ES 4-Jan-1982 14:48 


Add /OVER:LOCK, add NOCAC HE bit 
remove primary exception vector Ca 


v02-007 LMP0001 L. Mark Pilan 9-Nov~-1981 


ee ee me ee me ce ee a ee ee ee ee ee ee me ee ee ed ed ed dd dd od od dd od dd 


ee te te ee ee ee Tee ee et et tt te ee eee ee ee eee 
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Map the entire index Fite it” fe contains Pe ote 
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Mm 


OOO 2333 
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file headers. 


Steven T. Jeffreys, 21-May-1980 


i 

| 

‘ 

Copy volume serial number from home block to VCB. 
| v02=005 ACGO169 
t 

| 


Andrew C. Goldstein, 18-Apr-1980 13:56 
Bug check on internal errors 
v02-004 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 
= Previous revision history moved to MOUNT.REV 
LIBRARY ‘SYSS$LIBRARY:L B,L52"; 
REQUIRE ‘SRC$:MOUDEF .B32'; 


FORWARD ROUTINE 
MOUN 


UNT_DISK1 : NOVALUE, ! main disk mounting routine 
MOUNT HANDLER, ! condition handler for main mount code 
MAKE _BISK_MOUNT, ! kernel mode mount routine 
KERNEL_HANDLER : NOVALUE; ! kernel mode condition handler 


Si 
3s 
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+ 


i 
Own storage for this module. 


LITERAL 
WINDOW_SIZE = 30*6; ' maximum index file window size 
OWN 
PROTO_FCBE1 BBLOCK PECBSC LENGTH - | prototype index file extent 1 
PROTO_FCBE2 BBLOCK CFCBSC_LENGTHJ; ! prototype index file extent 2 
EXTERNAL | 
; These buffers are shared with MOUDK2. 
Btitvcy §: BtOtE bee bens 
= : ° : proto e 
PROTO_FCB : BBLOCK, } pretotyee index file FCB 
PROTO WCB : BBLOCK, : provetiee index file window 
VOLUME _UIC : LONG; ! owner UIC of volume 
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GLOBAL ROUTINE MOUNT_DISK1 : NOVALUE = 
44 
' 

FUNCTIONAL DESCRIPTION: 
This routine performs all of the mechanics of mounting a structure 


level 1 disk, given as input the parsed and partially validated 
command Line. 


MOUNT_DISK () 
INPUT PARAMETERS: 
NONE 


00.69 09 09 09 C9 C9 SIS SII IN NINO AAA AOA OO 
DONA WN $0 ODONOUSWN “OOD ONOULS WI 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
HOME BLOCK: buffer containing volume home block 
' 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
le 


e.7 9 91 1 | 

m= 5 3 1 

, 4 0693 1 

: 4 0694 1 | 

a 909? 1 

; 3 696 1 

ee 0697 1 

‘5 0698 1 

a | 0699 1 

; 1 0700 1 

SS 0701 1 

ee. % thi4 1 CALLING SEQUENCE: 

ye 7 1 

;.% 0704 1 

Ye 0705 1 

oe 0706 1 

oh 0707 1 

| 0708 1 IMPLICIT INPUTS: 

a. 0709 1 MOUNT parser data base 

; ’ pete ! CHANNEL: channel number for 1/0 

; ' orig ’ HOMEBLOCK_LBN: LBN of home block 

Oe 0714 1 OUTPUT PARAMETERS: 

: 1 0715 1 NONE 

, 0716 1 

s 18 0717 1 IMPLICIT OUTPUTS: 

: 18 0718 1 NONE 

: 190 0719 #1 

; 191 0720 1 ROUTINE VALUE: 

: 192 0721 1 NONE 

s 195 Ores 1 

; 194 072 1 SIDE EFFECTS: 

3 132 b2S¢ ; volume mounted: VCB, etc., created, ACP started 

: 197 0726 1 !-- 

: «4198 0727 1 

3: 199 0728 BEGIN 

: 200 1634 

3; 201 0730 BUILTIN 

: 202 0731 ROT, 

; 203 Or 36 FFS, 

: 204 073 FFC; 

; 205 Ore 

; 206 735 LOCAL 

: eor 0736 PROCESS_UIC, ! UIC of this process | 

: PRIVILEGE_MASK  : LOCK, ! address of process privilege mas 

208 0737 RIVILEGE REF BBLOC ' add f il k 

Oe 3 Seta sate 

: ' strins coun 

> 211 0740 STATUS i utility status word 

Gees: me Aitren | REE baie: | Geinee fe Eile Reader neem | 

: a : - | pointer to scan map pointers 

3; 214 o748 WCB POINTER : REF BBLOCK, ! pointer to scan web Bointers ; 

3; 215 0744 INDEX_LBN, ' LBN of current index file map pointer 

; 0745 INDEX CNT, ' count for above LBN 

: et ores EXTENT_LBN, ' LBN of the extension header 

; 218 74 EXTENT_VBN, ! VBN of the extension header 
| 
| 


-_ 
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TENT_FID, FID of the next extent 
! 
! 
i] 
' 


o— 


MOUDK 
v04-002 


AS ! offset for storage map location 
uNT, ! number of blocks in storage map 
N ' current LBN in use 
EE, ' number of free blocks on volume 
! Longword of bitmap 

' start point of bit scan 


x 
I 
0 
B 
R 
{ 
2 ! end point of bit scan 


E 
8 
C 
L 
F 
x 
Bi, 
B2; 
EXTERNAL 
DEV_CTX : BBLOCK F 
VOL_CTX : 
MOUNT_OPTIONS : BITVECTO 
EVICE_CHAR : 


: BBLO 
LABEL_STRING : VECTOR, 
DEVICE_INDEX : 
PHYS_NAME 


| 
| 
D ! device lock value block context | 
VC), ! volume lock value block context 

' command option rhage 
device characteristics | 
4 

! 

' 

' 

1 

' 

1 

! 

! 


~—— 
— 


' yolume Label string in command 

! index into PHYS_NAME vector 

' descriptor of physical device name 
' number of device specified 


DRIVE COUNT : VECTOR, ' number of drives per device 


DO ! command specified window size 
ACCESSED, ' command specified LRU iimit 
EXTENSION, ' command specified default file extend 

E BLO : BBLOCK, ' buffer containing volume home block 
HOMEBLOCK_LBN, ' LBN of home bloc 
HEADER_LBN ' urrent file header 


a ° ' LBN of ¢ 
CTLSGL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE), 
' vector page painter to process header 
ACP$GB_WINDOW =: BYTE ADDRESSING_MODE (ABSOLUTE), 
! default window size for /SYSTEM 
ACP$GW_SYSACC : WORD ADDRESSING_MODE (ABSOLUTE); 
' default LRU Limit for /SYSTEM 
| 


EXTERNAL ROUTINE 
he SANITY : NOVALUE, ! 


GET_VOLUME_LOCK, ' take out volume 
GET_ VOLUME _LOCK_NAME, ! generate volume lock name 
' get UIC of process 


routine to check + saad consistency 
oc 
: 
CHECK_HEADER, i verify file header 
LOCK ! write a block to the disk 
' read a block from the disk 
INIT_FCB, ! initialize FCB 
TURN_WINDOW1; ! initialize window 


ENABLE MOUNT_HANDLER; 


PDAEXR_ED DAA AA & BS SS EE WANN Ionononononororonun 
MEWN OS OONAUES WN (OOO NOULS WN O OONAULS WN —OVONOUSWN—O” 


oO 
Wr 


ne ne ee i ewan lol ololol ol ola al ola elo olololololololololololololololo} 
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PPE TETETETEIEICOLIS TEE IO ICE TEE Ieee ee eee IIe Tere rererecre rere re rereereererererere rere reer 
RIPPIN IPIPUDINIAINININININININIAININYNINPINYINIPININIPININININININININONUPUNINPUNONONO oP nononofnounonofpornofrorofnonungd 
“ 


6 ! For maximum spfety. we do as much setup work in user mode as possible. We 

6 94 !' read all of the disk blocks (index file and storage map headers and the 

66 795 ! storage map) in user mode so that the program is abortable in case something 
67 79 ! hangs. Prototype control blocks are built in local storage and are copied 
re a4 } into the system pool by the kernel mode routine. 

70 799 i Get the process UIC and the volume owner UIC. Make the privilege checks 

re aBt : for overriding volume protection and options requiring operator privilege. 

7 0 

74 0 08 IF .DEVICE COUNT NEQ 1 OR .DRIVE_COUNTCO) GTR 1 

75 0804 THEN ERR_ERIT (MOUNS_DEVICES); 


SS 
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; 27 0805 
: 27 6 PROCESS _UIC = KERNEL_CALL (GET iC); : 
: 278 PRIVILEGE MASK = CTLSGL_PHDCPHDS$Q_PRIVMSK); 

: 279 8 © VOLUME UIC = 0; | 
; 80 9809 IF MONT OPTIONSCOPT_1S_FILES11] 
i Be 0811 BEGIN | 
> 28 OB1¢ VOLUME_UIC = .(HOME_BLOCKCHM1$W_VOLOWNER])<0,8>; 

: 284 081 VOLUME ~UIC<16,8> = = (HOME_BLOCKCHM1$W_VOLOWNER]5<8,8>; 
: 285 0814 END; 

: $88 oele SIF 

; $83 $817 .MOUNT_OPTIONSCOPT_OVR_PRO] 

; 289 0818 4 AND NOT (.PRIVILEGE MASKCPRV$V_VOLPRO] 

: 290 0819 4 OR .VOLOME_UIC EQL 

> 291 0820 4 OR .VOLUME-UIC EQL .PROCESS_UIC) 

; $9¢ 0821 3 ) 

: $32 8858 3 oR 

: 295 0824 4 (| .MOUNT_OPTIONSCOPT_WINDOW] 

> 296 0825 4 OR .MOUNT~OPTIONSCOPT-ACCESSED) 
: 297 0826 4 OR .MOUNT~OPTIONSCOPT_UNIQUEACP) 

> 298 0827 4 OR .MOUNT~OPTIONSCOPT~SAMEACP] 

; 299 0828 4 OR .MOUNT~OPTIONSCOPT~F ILEACP) 

° | 
: 301 $830 z AND NOT .PRIVILEGE_MASKCPRVS$V_OPER] | 
: 302 0831 3 ) 

: 302 O83 SOR | 
: 305 0834 ; .MOUNT_OPTIONSCOPT_GROUP 

; 306 0835 AND NOT .PRIVILEGE_MASK CPRV$V_GRPNAM] 

: 307 0836 3 ) 

: 309 et : oR ( 

Ps j 
: 310 0839 3 .MOUNT_OPTIONSCOPT_SYSTEM) 

3 ST 0840 3 AND NOT .PRIVILEGE_MASK CPRVS$V_SYSNAM] 

Ties Bh pes | 
; 314 ages THEN ERR_EXIT (SS$_NOPRIV); 

: 316 0845 2 IF .MOUNT_OPTIONSCOPT FOREIGN 

: 317 0846 THEN VOLUME_UIC = .PROCESS_UIC; 

: 319 9 48 IF .DEV_CTX CDC_NOTFIRST_MNTJ 

: 320 49 2 THEN 

F 321 0850 CHECK_CLUSTER_SANITY (); 

: 308 0836 First fill in the prototype VCB from the data in the home block. 

: 325 54 2 
3 is ones CHSFILL (0, VCBSC Lewern. PROTO_VCB); ! init to zero 

» ier B228 PROTO_VCBCVCB$W_TRANS] = 1; ! transaction count | 
: 328 aes PROTO_VCBLVCBSW_MCOUNT) = 1; i mount count | 
; $5 B38 IF .MOUNT_OPTIONSCOPT_GROUP) 

> 331 0860 THEN PROTO VCBLVCB$V_GROUP) = 1; 

: 332 086 IF .MOUNT_OPTIONSCOPT_SYSTEM] 


OQ 


% 
| 
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ndex AS, 2 gize 
PROTO_VCBCVCB$B_IBMAPSIZE) = .HOME “BLOCK ami guc IBMAPSI 
maximum number of tiles 


H 3 0868 THEN PROTO_VCBCVCB$V_SYSTEM) = 

He HRT 

§ ‘ O85 Copy volume serial number from homeblock to VCB. | 
; 5 O86? PROTO_VCB CVCBSL_SERIALNUM] = .HOME_BLOCK CHM1$L_SERIALNUM); 

; 340 0869 If -MOUNT_OPTIONSCOPT_] 1s FILES11) 

3 ‘] 0670 AND NOT (TMOUNT_OPTIONSCOPT_FOREIGN] AND .MOUNT_OPTIONSCOPT_LABELJ) 

3 rk oB7¢ BEGIN 

: 344 087 ! yyiuee Label. blank filled 
; <r Bare ! fin pp ie serge Af Ba 
; 0875 P = CHSFIND_CH (HM1$S_VOLNAME, HOME_BLOCK mt th vOeNR 

3: 34 0876 C = 12; ! compute string teases | 

: 348 087 IF NOT CHSEAIL (p) 

3 349 0878 THEN C = BLOCKCHM1$T VOLWAN }; 

; 350 0879 CHSCOPY (. t “HORE ER DCKCHMT 1$T_JOLNAM 

: 351 0880 VCBSS_VOCNAME, PROTO ~VCBLUCBSt _VOLMAME) ; 

3 426 0881 EN 

; = pass ELSE 

; 328 088 CHSCOPY (. oLABEL STRINGCOJ, .LABEL_STRINGC1), ' 

; 33 0884 S_VOLNAME, PROTO_VCBIVCB$T SVOLNAMES ; 

: 357 0886 IF NOT .MOUNT_OPTIONSCOPT_FOREIGNI 

; 358 0887 THEN 

; 359 0888 BEGIN 

; 360 0889 PROTO_VCBLVCBS$V_MOUNTVER] = .MOUNT_OPTIONS COPT_MOUNTVER); 

3 qe) 344 PROTO_VCBCVCBSL_HOMELBN) = . HOMEBL OCk. <j BN; ! sis otanes ts LBN 

3 363 089 PROTO_VCBCVCBSL_IBMAPLBN] = Aad ¢ HOME ‘OLOCKCHMISL. TOMAPLBN]. 16); 
3; 364 089 PROTO_VCBCVCB$W_CLUSTER] = ' volume cluster factor 
> 365 0894 ault window size 

: 366 0895 nnoTo VCBCVCB$B_WINDOW] = HORE _BLOCKCHN SB “WINDOWS: 

: 367 0896 PROTO vet ytBSB WINDOW) E 

: 368 0897 THEN PROTO vCBCVCB$é WINDOW] = me 

3; 369 0898 IF .MOUNT ovsao NSEOPT?§ TEM) 

: 370 0899 THEN PROTO VCBLV $5) Noow = .ACPS$GB_WINDOW; 

: 371 0900 IF .MOUNT_ OPTI Sita 

; 3 0901 THEN PROTO_VCB VeBse "OINDOUY 2 WINDOW: : 

3 7 090 ectory LRU Limit 

3 374 090 PROTO VCBCYCBSB LRU LIM) = HOME BLOCK ints LRU_LIMJ; 

: 375 904 OPTIONSCOPT SYSTEM 

oo 905 THEN PROTO vCB atvcase $B CRU. Lie -ACPSGW_SYSACC; 
: 37 90 F SCOPT_A ss£0J 

: 378 999 THEN PRO PROTO wes vcB$B CR ay Mit: - ACCESSED; 
: 379 908 - SCOPT_NOTAC ACH) 6 

: 380 0909 THEN MOpeTO” vee veBSB _CRU_LIM) = 

: 81 910 efa ult file extend 

3 8 911 PROTO yeacyes W_ EXTEND) = seer ol EXTEND]; 

; 918 IF -PROTO TB$W_ EXTEND) EQL~ 

$ 91 THEN PROTO V atv $0 EXTEND) 

3 0914 .~MOUN CPopT'e TENSION 

3 0919 THEN PROTO_ ve VeBSY. EXTEND = . EXTENSION; 

: i$ 

: 18 


vt bet te te 
SSS 


sapien mnie eesti 


| 


INDEX_LBN = .MAP_POINTERCFM1$W_LOWLBN] 
INDEX"LBN<16,8> = .MAP_POIN NTERCERISB HiGHLBN): 
NDEX” CNT = ite POINTER REFWISB_C NT] + 1; 


NDEX 
or 4 -HEADER_LBN LSSU .INDER_LBN + .INDEX_CNT THEN EXITLOOP; 
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: 90 919 PROTO_VCBCVCBSL_MAXFILES] = .HOME_BLOCKCHM1$W_MAXFILES); ‘ 
; 38 921 IF .MOUNT mata NOCACH 1 ; 
; + ¢ THEN PROTO_VCBLVCBSV_ROCACHE ‘ 
; 395 924 ' Now read me index file header, ccnttty it, and initialize the prototype : 
; wm 925 ! index file FCB. ‘ 
: 39 38 3! 
: 99 $8 8 HEADER_LBN = .PROTO_VCBCVCBSL_IBMAPLBN] + .PROTO_VCBCVCB$B_IBMAPSIZE); ; 
; 400 0929 STATUS” = READ_BLOCK™ UH HEADER CEN BUFFER); ‘ 
: 401 930 IF NOT .STATUS THEN ERR _EXIT~(.STATU : 
; res g 1 IF NOT CHECK HEADER FRRrEER. UPLIT Word (1, 1, 0)) THEN ERR_EXIT (); ‘ 
: tee 0338 CHSFILL (0, FCBSC_LENGTH, PROTO_FCB); ; 
; 406 0935 ! Clear out the extension header FCB's so they are in a known state : 
; 407 0936 : ‘ 
; 408 0937 : 
; 409 0938 CHSFILL (0, FCBSC_LENGTH, PROTO_FCBE1); ° 
: $10 0939 CHSFILL (0, FCBSCLLENGTH, PROTO_FCBE2); ° 
: 411 0940 : 
: aig 0941 PROTO _FCBCFCBSL_STVBN] = ° 
> 41 0948 INIT Ores (PROTO cB ‘BUFFER; : 
: aid 094 PROTO_FCBLFCBSW_ACNT) = 1; : 
: 416 0945 ! Build the prototype index file window. : 
: 417 0946 3 : 
3; 418 0947 : 
3; 419 0948 CHSFILL (0, WCBSC_LENGTH, PROTO_W ‘ 
; 420 0949 PROTO_WCB wCBSW_ SIZE) = wesc PENGTH’ + WINDOW_SIZE; ° 
; 421 0950 PROTO WCBCWCB$V_READ) = ° 
i 498 0551 : TURN_QINDOW1 (PROTO. _WCB, "aurreR, 3, 1); : 
: re $338 : Read any extents that exist, verify them, and initialize the appropriate : 
3 ret Goce : FCB for them. In addition, update the ucé to reflect the entire file. : 
3 039 $328 ‘ 
: 428 95 MAP = = nentin FER + .BUFFERCFHISB_MPOFFSET) * ° 
> 429 0958 3 IF [MAP_AREACFM1$W_EX_FILNUM] NEQ"O AND .MAP * AREACFMISW. EX_FILSEQ] NEQ 0 : 
: 430 0959 THEN : 
3; «431 0960 4 : 
; $3 0961 4 POIN TER = .MAP Na + FMISC_POINTERS; ‘ 
; 4 96¢ 4 DECR J FROM -MAP-AREALFMISB INUSED. 101 60 | 3 
; 4 96 BEGIN : 
3; 435 : 
; 436 : 
3; 437 : 
3; 4 ° 
; 439 : 
3 § . 
3 4 ‘ 
3 & ‘ 
3 5 ‘ 
; 4 ‘ 
3 & ‘ 
; 4 ‘ 


40 POINTER’ = NNAP POINTER * 4; 
ii . 
rr : Verify that the extension file header falls within the contiguous portion | 
445 
446 EXTENT_LBN = .HEADER_LBN + .MAP_AREACFM1$W_EX_FILNUM) = 1; | 
| 


18-43 S$ep-1984 01:18:20 VAX-11 Bliss-32 V4.0-7 
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LBN + .INDEX_CNT LSSU EXTENT _LBN THEN ERR_EXIT (SS$_FILESTRUCT); 

= MAP AREATFM1 SW Fy FILNU 

D<16,16>"= .MAP_AREALFA1$W Nex TF Lsead; 


n the extent and add to the List. 


B ER); 


UF F 
US); 
NT PiBD THEN ERR_EX T 0; 
_FCBCFCBSL_FILESTZE .PROTO_F CBLFCBSL_STVBNI; 
INIT FCB (PROTO_FCBE1 
PROTO_FCB ifree malts 


ot 
iy 
E 
iF 
hioto. FCBCFCBSL_FILESIZE] + .PROTO_FCBEICFCBSL_FILESIZE); 
PROTO_FCBE1CFCBSW 

PROTO_F CBE1CFCBSL_ “ADLBND = * EXTENT_LBN; 


Update the prototype index file window. 


ooo 


Ce POINTER = PROTO_WCB + WCBSC_MAP; 
INCR. J~FRON 1 fo .PROTO _WCBCWCBSW_NMAP) DO 


N 
EXTENT VBN = .EXTENT VBN + .WCB_POINTERCWCBS$W_COUNT); 
WCB_POINTER = .WCB_POINTER + 6;~ 


TURN “WINDOW! (PROTO_WCB, BUFFER, 3, .EXTENT_VBN); 


MAP_AREA = BUFFER + .BUFFERCFHISB_MPCFFSET] * 2; 
IF [MAP_AREACFM1$W_EX_FILNUM] NEQ™O AND .MAP * AREACEMI SW. EX_FILSEQ]) NEQ 0 


BEGIN 


: Verify that the extent falls within the contiguous portion. 


EXTENT LGN = HEADER LBN + MAP LAREACFM1$W_EX_FILNUM] = 1; 
IF . INDEX LBN + .INDEX CNT i$su~ pEXTENT. LBN TREN ERR_EXIT (SS$_FILESTRUCT); 
EXTENT_FI .MAP_AREATFM1$W EX 

EXTENT~ “FID<16, 16>"= .MAP_AREK Kmieue Nex “FILSEQI; 


Read in the extent and add it to the List 


STATUS = READ BLOCK (.EXTENT_LBN, BUFFER); 

IF NOT .STATUS THEN ERR EXIT~(.STATUS); 

IF NOT CHEC k pHEADER (BUFFER, EXTENT UP Tb) ) THEN ERR_EXIT ( 

rarertseae FPCBSL L ASTYBN] = gpROTO_ FCBE1CFCBSL_FILESIZE) 3! * PROTO_FCBE1CFCBSL_STVBN); 
OT0_FCBLF sritesty EY = .PROTO_FCBLFCBSL_FILESIZE) + .PROTO_FCBE2CFCBSL_FILESIZE); 

PROTO” FCBE att = 1; 

PROTO~F CBE FCBSL Akt) = [EXTENT_LBN; 


: Update the prototype index file window. 


Pw ewe eee ew we we ww or or or eeu oP a or? a? ot a? oF oF a? a? oF oF >? ot ot a? ot bt et et 


me a ae te a = = 9 ss = ss SY I YH SS —b 


SOOOOOSSSCOSOOOSOOOCOOOOOOoOoOOoOSoooe 
NRO OCONAOVUESWN “OOO NOU SW O0On 


WA CTOPONOMOMONIPONITUN) S 2 2 2 So 


WCB_POINTER = PROTO_WCB + WCBSC_MAP; 
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: Now read the storage map file header and find the starting LBN of the 
storage map. Note that we skip the ‘storage control block 
' 


» which may or 
! may not be represented by a separate retrieval oointer. 


04 EXTENT_VBN = 1; 

05 INCR FROM 1 fO .PROTO_WCBCWCBSW_NMAP] DO 

§$ EXTENT VBN = .EXTENT VBN + .WCB_POINTERCWCB$W_COUNT); 

5 WCB POINTER = .WCB_POINTER + 6; 

2 : TURN_WINDOW! (PROTO_WCB, BUFFER, 3, .EXTENT_VBN); 
4 . 

; 4 END; 
4 

6 

; 

5 

a 

5 


La = READ BLOCK (.PROTO weet yces BaAPL BN? + .PROTO VCBCVCBSG_IBMAPSIZES + 1, BUFFER); 
F 
THE 


LI 
NOT «STATUS OR NOT CHECK_HEADER (BOFFER, UPLIT WORD (2, 2, 0) 


= 


BEGIN 
IF .STATUS EQL SS$_VOLINV 
ERR_EXIT (SS$_VOLINV) 


ELS 
ERR RESSAGE (MOUNS_MAPHDRBAD) ; 
pRoTO_VvCB VCBSV_NOALLOC) = 1; 


SSSSSSSSSSSERELELEL EE Ree eees 


PPA MINE & 
SOOWNANE WN $ O OONO YL EWN" OVOONOULW 
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PPD Se ae tre ete et 
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1 ELSE 
O66 BEGIN 

34 06 MAP_AREA = BUFFER + .BUFFERCFHISB_MPOFFSET)*2; 

3 064 MAP_POINTER = .MAP_AREA + (M1$C_POINTERS; 

37 066 BIAS = 1; ! assume one retrieval pointer 
38 067 IF .MAP_AREA rn ee jase GTR 4 

39 068 OR .MAP_AREACLFM1$B_INUSE) LSS 2 

40 069 THEN ERR_EXIT (SS$_FILESTRUCT); ! more than 2 or no pointers 

41 970 IF ‘ _RREACFM1$B~INUSE) EQL 4 

23 Ore BEGIN 

44 07 BIAS = 0; ! 2 pointers - use the second 

45 074 MAP_POINTER = .MAP_POINTER + 4; 

: O73 END; 

48 ors COUNT = .(.MAP_POINTER)<8,8> + 1 = .BIAS; | 
549 078 LBN = .(.MAP_POINTER)<16, 16>; 

50 07 LBN<16,8> = 7(.MAP_POINTER)<0,8>; 

23 ogy LBN = .LBN + .BIAS; 
23 oes PROTO_VCBCVCBSL_SBMAPLBN) = .LBN; 
335 OR PROTO_VCBCVCB$B8_SBMAPSIZE] = .COUNT; 

2$ 085 ' Read the first block of the storage map and write it back. If the 

55 8 ! write fails because the device is hardware write-locked, mark the 

58 ' volume software write-locked and inform the user of the situation. 

544 +43 For the moment, ignore read errors, as they will be handled Later. 
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a3 


4 -MOUNT_OPTIONS COPT_WRITEJ 
IF READ BLOCK (.LBN, BUFFER) 
con (STATUS = WRITE_BLOCK (.LBN, BUFFER)) 


BEGIN 
IF STATUS EQL SS$_VOLINV 
ERR_EXIT (SS$_VOLINV) 
~STATUS EQL SSS WRITLC 
EN ERR_MESSAGE (ROUNS_W 
SE_ERR-MESSAGE CMOUNS W 


LOCK) 
CB, 
UNT OPT IONSCOPT_URIT I 


IF © 
TH RITE 
EL RITESCB 
BO = 0; 


FREE = 0; 
DECR J FROM .COUNT TO 1 DO 
BEGIN 

MAP BUFFER : VECTOR; 


macnn 


STATUS = READ BLOCK (.LBN, BUFFER); 
IF NOT .STATUS 
THEN 
BEGIN 
IF .STATUS EQL SS$_VOLINV 
ERR_EXIT (SS$_VOLINV) 
ERR_MESSAGE (MOUNS GITMAPERR, 0, .STATUS); 
PROTO_VCBLVCB$V_NOALLOC) = 1; 
END; 
INCR I FROM 0 TO 127 DO 


X = .BUFFERC.1); 
IF _ .X NEQ 0 
THEN 


AREF (32-.B2), x, B1) 
F’(32=.B1), X, B2): 


2 
L 
TRE 
R : +, .B1; 

Q 32 THEN EXITLOOP; 


0, .STATUS); 
Scan the storage map to compute the number of free blocks on the volume. 


a eS 25 
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yOee002 12-808=1 382 94:18:89 DISKSVMSMASTER: CMOUNT . SRCJMOUDK1.832:4> 
; 61 1147 4 PROTO_VCBCVCBSL_FREE] = .FREE; 
ip ert og 
3 : 1 i ? END ! end of Files-11 specific mount processing 
BPH pas 
: 625 1154 ! This is a foreign mount. If this is a shared foreign mount, 
> 626 1155 ! take out the volume Lock. 
. nes 
: 629 1138 IF NOT .MOUNT_OPTIONS COPT_NOSHARE) 
; 650 11 THEN 
; 631 1160 BEGIN 
; 6 § 1161 GET VOLUME _LOCK_NAME (); 
: ° ? 1196 4 von (STATUS = KERNEL_CALL (GET_VOLUME_LOCK)) 
; 635 1164 ERR_EXIT (.STATUS); 
; 636 1169 IF .DEVICTX COC_NOTFIRST_MNT) NEQ .VOL_CTX CVC_NOTFIRST_MNTJ 
: 638 1167 ERR_EXIT (MOUNS_VOLALRMNT) ; 
: o7, 1133 ND; ! end of foreign-specific mount processing 
: 641 1170 ! Finally call the kernel mode routine to make it all real. Note that all the 
3 ote 1171 ! hookups, including generating the mounted volume List entry. are done 
: a 1176 within one kernel mode call so that they are uninterruptible by the user. 
: 645 1174 
3; 646 1175 IF .MOUNT_OPTIONSCOPT OVR LOCK? 
3 oh 11% THEN PROTO_VCBCVCB$V_ROALCOC) = 0; 
: 649 1178 2 STATUS = KERNEL_CALL (MAKE _DISK_MOUNT); 
3 $20 BT 4 IF NOT .STATUS THEN ERR_EXTT (.STATUS); 
; $36 1183 Announce that the volume is mounted. 
: 654 118 ; 
3 a2 HB § ERR_MESSAGE (MOUNS_MOUNTED, 3, VCBSS_VOLNAME, PROTO_VCBLVCBST_VOLNAME], PHYS_NAMEC.DEVICE_INDEX*2)); 
: 657 1180 1 END; ! end of routine MOUNT_DISK 

TITLE Royen) 

IDENT \v04-002\ 

-PSECT SPLITS,NOWRT,NOEXE,2 

0000 0001 6001 00000 P.AAA: .WORD 1, 1, 0 
0000 0002 0002 00006 P.AAB: .WORD oa § 
-PSECT SOWNS,NOEXE,2 
00000 PROTO_FCBE1: 
spike 180 
000B4 PROTO_FCBE?: 
-BLKB 180 


3 
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4 Page 
DISKSVMSHASTERSCMOUNT. SACIMOUDK1.B32ca°" (3) 
TRN BUFFER, PROTO. vcB 


PROTO WCB 
v_CTx 


a2 


NDEX, PHYS NAM 
OUNT, DRIVE_COUNT 
ACCESSED 

NSION, HOME BLOCK 
BLOCK’ LBN, READER_LBN 

GL_PHD, ACP$GB_WINDOW 

Gu sySAcC CHECK_CLUSTER_SANITY 
V 

U 

E 


-PSECT S$CODES,NOWRT,2 
OFFC 00000 -ENTRY ROUNT BISKI. Save R2,R3,R4,R5,R6,R7,R8,R9,- 


MOVAB LIBS$STOP, R11 
MOV PROTO _VCB+11, R10 


0691 
5B 000000006 
2A 00006 
6D OSF3 
01 00006 
01 00006 
00728174 


74$, (FP) 
CMPL DEVICE_COUNT, #1 
CMPL RIVE_COUNT, #1 
1$: PUSHL #7504244 
2s: CLRL =S 
SP 


Ger ult 
000000006 CALLS #5, @#SYSSCMKRNL 
MO RO, PROCESS 


VIC 
MOVL  § a#CTLSGL_PHB, PRIVILEGE_MASK 


VOLUME UTC 

BB #1, MOONT OPTIONS+4, 3$ 

MOVZBL HOME _BLOCR*30, VOLUME _UIC 

MOVB HOME~BLOCK+31. VOLUME -UIC+2 
T_OPTIONS+4, 4$ 

#21 TPRIVILEGE.MASK), 4$ 


OOOooooooooooooo0oo 


COOQoQoQooooooQooooooooooooooooooooocoooo 


OE 00006 


A222 EEO VWWo 
owns Orn 


0D 


CMPL YQLUME UIC, PROCESS_UIC 


4$: BLBS | MOUNT_OPTIONS+3, 5 
BBS . 5$ 
Sk 
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oc 
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00006 


04 


$8 
00006 
g 
68 
CF 
CF 
05 00006 
CF 
6E 
F5 
AA 
AA 
00006 
6A 40 
01 
04 
6A 80 
AA 00006 
CF 
CF 
00006 
oc 
52 
50 00006 
51 
CF 
09 
DF 00006 
09 
CF 
01 
02 
AA 00006 
CF 
Aa 
AA 00006 
AA 
08 
AA 000000006 
ae 
a: 
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CF 
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VAX-11 Bliss-32 V 742 
Nt eksumen CMASTER. chounT. SRCIMOUDK1. B32, aa 
#3, (PRIVILEGE_MASK), 8$ 
MOUNT _OPTIONS#T, 
4 j (PRIVILEGE_MASK), 9$ 
a. LIBSSTOP 
#3. MOUNT OPTIONS+1, 10$ 
PROCESS. UIC, VOLUME_UIC 
DEV. TX, 11$ 
# “CHEEK. C R_SANITY 


UST 
#0, (SP), “10. 1338. PROTO_VCB 


#1, PROTO_VCB+12 
#1, PROTO VCB+76 
MOUNT. OPTIONS 


#64, Pte vCB+11 
#0, MOONT_OPTIONS+1, R6 


ne, | PROTO_VCB+11 

HOME ‘BLOCK®E36, PROTO_VCB+100 
, MOUNT OPTIONS+4, 17s 

43° MOUNT OPTIONS 1 14$ 

MOUNT_OPTIONS+ 


#0, #12, HOME_BLOCK+14 
15$ 
R} 
wi2,¢ 
P 
16$ 
HOME BLOCK#14, RO 
C, HOME_BLOCK+14, #32, #12, PROTO_VCB+20 
18$ 
LABEL STRING, @LABEL_STRING+4, #32, #12, 
BROTO-V 

MOUNT. _OPTIONS+1, 19$ 


#6, #1, MOUNT LB od be ete 2 RO 


RO, #2. #i, 

HOREBLOCK. (an PROvO™ VCB+36 
#16, Locks ks2, PROTO_VCB+48 
#1, PROT 


oe PROTO VEBseD PROTO_VCB+72 
7 PROTO. vCB+72 
@#ACP$GB_WINDOW, PROTO_VCB+72 
MOUNT OPTIONS* +3 
WINDO@, PROTO_v(B+72 

HOME BLOCK+46, VBROTO _VCB+73 
as#ACP$Gu SYSACC em VCB+73 


UNT_O t$ 
ACCESSED Proto (B+7 
#4, MOUNT OPTIONS#6 & 


po folololelolol~) 
con 
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v04=002 1 =30 71 38% 93:18:80 DISKSVMSMASTER: CMOUNT.SRCJMOUDK1.832;4 (3S 
AA 94 0019F CLRB  =—« PROTO_VCB+73 : 0909 
33° AA 00056 iY ? Ag 258: NOV ZBM HOWE BLOCK*+45, PROTO_VCB+62 : 0311 
33. AA 5 : 1AA MOVW #5, PROTO vcBeg2 ; 0318 
00006 cf 1A 26$: tsi md NT_OPTIONS+ + 0914 
3 AA 006 CF 1B4 MOVW EXTENSION, PROTO vCBs62 + 0915 
D AA 006 CF 1BA 27$:  MOVB  =HOME_BLOCK, PROTO _VCB+56 + 0917 
9 AA 0006 cr C 001C0 MOVZWL HOME-BLOCK+6, PROTO_VCB+68 + 0919 
04 00006 CF 4 €1 0016 BBC 4, MOUNT_OPTIONS+6> 28S : 0921 
48 AA 02 88 icc 1SB2 #2, PROTO-VCB+8 + 0922 
50 D AA 9A 1D 28$ MOVZBL PROTO VCBT56 RO + 0928 
00006 CF 5 BAGO 9E 00104 VAB_  @PROTO_VCB+48CROJ, HEADER_LBN : 
00 0 CF OF 0108 PUSHAB BUFFER + 0929 
00006 CF DD 001DF PUSHL HEADER_LBN : 
00006 CF ee F OO1ES CALLS #2, READ BLOCK ; 
58 DO 00168 OVL RO, STATOS : 
05 58 €8 OO1EB LBS STATUS, 29$ + 0930 
58 DD OO1E PUSHL STATUS ; 
6B 01 FB OOTF CALLS #1, LIBSSTOP : 
0000" CF 9F OO1F3 298 PUSHAB P.AAA + 0931 
00006 CF 9F 001F7 PUSHAB BUFFER : 
00006 CF 02 FB 001FB CALLS #2, CHECK_HEADER : 
” 7e be 00508 eRe a 
6B 01 FB 00205 CALLS #1, LIB$STOP : 
00B4 8F 00 6E aide 00 2¢ 00 08 30s: movcS #0, (SP), #0, #180, PROTO_FCB + 0933 
00B4 8F 00 6E ae 00 2c 00319 MOVCS #0, (SP), #0, #180, PROTO_FCBE1 ; 0938 
00B4 = 8F 00 6E owe 00 2c Oost¢ MOvCS #0, (SP), #0, #180, PROTO_FCBE2 ; 0939 
00006 CF 01 00 §s 6 VL #1, PROTO_FCB+44 + 0941 
0000G CF 9F 08 B PUSHAB BUFFER : 0942 
00006 CF 9F 00 ¢ PUSHAB PROTO FCB : 
00006 CF 02 FB 00233 CALLS #2, IRIT_FCB : 
00006 CF 01 B0 00 38 MOVW #1, PROTO_FCB+26 + 0943 
30 00 6E tel 00 2c 99 30 MOVCS #0, (SP),"#0, #48, PROTO_WCB ; 0948 
00006 CF E46 §8F 98 00 rk MOVZBW 4228 PROTO _WCB+8 + 0949 
00006 CF 01 88 0024 BISB2 #1, PROTO_WCB+11 : 0950 
or DD 9 5 PUSHL #1 : 0951 
3 DD 00252 PUSHL : 
99006 CF OF 0 4 PUSHAB BUFFER : 
G CF F 8 PUSHAB PROTO WCB : 
00006 CF 4 FB 0025¢ CALLS #4, TORN_WINDOW1 : 
50 00006 CF 9A 00261 MOVZBL BUFFER+1 : 0957 
5 O000GCF40 3E 00266 MOVAW BUFFERCRO], MAP_AREA ; 
5 A 6¢ MOV ZUL (AP_AR AS, R5 ; 0958 
04 A 6 7 TSTW  4(MAP_AREA) : 
: 0275 31$ BNEQ 338 ; 
018A 7 BRW 49$ 3 
3 OA A2 : 7A 32% MOVAB 10(R2), MAP_POINTER : 0961 
1 00006 CF p 7 OVL HEADER ’LBN,~R1 > 0967 
56 08 A2 9A 8 MOVZBL 8 (MAP_AREAS, J ; 
56 06 NCL J 3 
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EX_CNT, INDEX_LBN, R4 


or 


(R5)CR1J, EXTENT_LBN 
CNT, INDEX_LBN, R9 
TENT_LBN : 


ENT_FID 
AREA, EXTENT_FID+2 


CAMm—nnoZz— f£AeSZz eZ 
NE. OM oO =] 


DFDRVewa 1 © BWD—-Wwae 
n> 


momro 
=o 


oyrrer 
#2, ea aateaae 
RO is 
IBSSTOP 
PROTO _FCB+44, PROTO_FCB+56, PROTO_FCBE1+44 


PROTO_FCBE1+56, PROTO_FCB+56 
#1, PROTO FCBE1+26 
EXTENT LBN, PROTO_FCBE1+52 


41$ 

(WCB_POINTER)+, R5 
’ NT _VBN 

#4, WCB_POINTER 


CRO, MAP_AREA 
(MAP_AREAS, R5 


See Se Se Se Se Se Se Ge Se Ge Se GeSe Se Se Ge Ge Fe Ge Se Se Fe Be Be Se Ge Se Ge Se Be Ge Be Be Be Be Ge Se Se Be Fe Ge Ge Ge Se Be Ge Se Se Fe Be Fe Se Ge Be Be Se 


CF 
CF 
CF 
CF 
57 
56 
51 


Wn 
Ono e 


00006 


0000° 


00006 
0000 


0000" 


00006 
00006 


oe 
ro 
mw 


oe ee 
MmOfSDRBeeeDi Tee roro 


5 
5 
6 
6 
6 
6 
6 
? 
? 
? 
7? 
7 
8 
8 
8 
8 
9 
9 
9 
9 
9 
A 
A 
A 
A 
A 
B 
B 
B 
C 
C 
D 
D 
D 
D 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 
F 


MWDNWMOOAPLVS PViO9L "DN GCPOW0M YS NV POL MOOLU"WVWwOVeW —-— 


He 
E 

8 
1E 00 
3C 00 
FR 0 
DO 00 
i 
DD 00 
FB 00 
dO 8° 
E8 00 
DD 00 
FB 00 
DD 00 
9F 00 
FB 82 
E8 00 
D4 00 
FB 00 
C1 00 
9F 00 
9F 00 
FB 00 
CO 00 
BO 00 
DO 00 
BB 
Be 00 
D4 00 
11 00 
3¢ 00 
CO 88 
3 0 
FS 00 
DD 00 
PB 
oF 

FB 00 
9F 00 
9A 00 
CO 00 
+4 0 
8 
YB 
oF 

FB 00 


OOOVM1O PY F SOON OOVMMODMDWDOVO OOM OONMOO VMOU FP NOWOrPon"y xyro 
MFNINOOWOP, PF WL MMW MH LLNOON BH HAH RN Mowe mM Moon | ™uul— "WOO MOrnr fw 


DISKSVMSMAST 


R LBN, RS, RO 
dre EMT LBN 


$STOP 
ENT 


$ 
$ 
MAP _AREA) 
$ 
A 
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8 
TEN 
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> td 


; 

TENT_LBN 

2, READ BLOCK 
Ary 
srArus, 4 $ 


#1, LIBSSTOP 
SP. 


= a2mumreo pomp 


BUFFER 
#2, CHECK_HEADER 
RO, 46$ 

"1, 
PROTO-F CBE2+ 
BUFFER 
PROTO FCBE2 


#2, INIT FCB 
PROTO FCBEG®S6 5 R0To. FCB+56 


#1, PROTO 


FCB 
EXTENT [Bn PROTO. FCBE2+52 
Prot 0 OcB+le WCB-POINTER 


EXTENT_VBN 
PRoro. weB+22~ R1 
48$ 
(WCB_POINTER)+, R4& 

EXTENT_VBN 

#4. WCB POINTER 
t7$ 
EXTENT _VEN 
BUFFER 
PROTO WCB 
#4, TORN, WINDOW 


BU 
PROTO_VCB+56, RO 
PROTO_ “VCB+48, RO 


ose © sone BLOCK 
STATUS. 50$ 
areR 


autre CHECK HEADER 


VAX=11 Bisse 32_V4.0-742 
ER: (MOUNT. SRC JMOUDK1 


REAT, EXTENT _F1ID+2 


STOP 
PROTO matt hed PROTO_F CBE1+56, 
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14 
MOUDK1 16-Se -1984 01:18:20 -VAX=11 Bliss-32 V4.0-742 Page 19 
v04=002 127808 - 1 3b 04:18:50 DISKSVMSMAS TER: CMOUNT. SRCIMOUDK1.B32:4° (4) 
5 E8 00428 BLBS RO, 53$ ; 
00000254 gf 35 bi 04 50$: cmPL sTATUS, #596 + 1053 
7E 0254 BF }é 04 MOVZWL #596, =(SP) + 1055 
68 i Fe 04 C CALLS # C1B$STOP : 
00729019 8F DD 00441 51$: PUSHL ae : 1057 
000000006 00 01 EB 00447 CALLS #1, LIB$SIGNAL : 
6A 10 44E 52$: BISB2 #16, PROTO_VCB+11 : 1058 
0171 31 00451 BRW 71$ + 1050 
a 00006 CF 9A 00454 53$ MOVZBL BUFFER+1, RO + 1063 
5 DOddGCFAO 3 0499 MOVAW BuFFERCROJ MAP_AREA : 
5 OA A : 45F MOVAB 10(R2), MAP_POIRTER > 1064 
54 01 DO 00463 MOVL #1, BIAS + 1066 
04 08 A2 91 00466 CMPB  8(MAP_AREA), #4 + 1067 
06 1A 0046A BGTRU 54$ : 
02 08 A 91 Boge CMPB 8(MAP_AREA), #2 : 1068 
08 1€ 0047 BGEQU 55$ : 
7E 08CO BF 3C 00472 548 MOVZWL #2240, -(SP) + 1069 
6B 01 FB 00477 CALLS #1, LIBS$STOP : 
04 08 A2 91 0047A 55$ CMPB = B(MAP_AREA), #4 + 1070 
05 12 0047E BNEQ  56$ : 
54 04 00480 CLRL_ BIAS + 1073 
53 04 CO 00482 ADDL2 #4, MAP_POINTER + 1074 
52 01 A3 9A 00485 56$:  MOVZBL 1(MAP_POINTER), R2 : 1077 
52 54 C2 00489 SUBL2 BIAS ; 
3 06 0048¢ INCL COUN ; 
56 02 A C 0048 MOVZWL 2(MAP_POINTER), LBN : 1078 
56 08 10 63 FO 0049 INSV. (MAP_POINTER), #16, #8, LBN + 1079 
56 54 C0 0049 ADDL2 BIAS> LBN + 1080 
29 AA 56 DO 0049A OVL LBN, PROTO_VCB+52 : 108 
2—E AA 52 90 00495 MOVB COUNT, PROTO VCB+57 : 108 
5E 00006 CF 01 gt O4A BBC #1, MOUNT_OPTIONS+1, 60$ : 1091 
00006 CF SF 004A8 PUSHAB BUFFER : 1093 
56 DD OO04AC PUSHL LBN : 
00006 CF 02 FB 004A CALLS #2, READ_BLOCK ; 
50 50 9 048 BLBC RO, 60S : 
00006 cr F 00486 PUSHAB BUFFER + 1095 
6 DD 004BA PUSHL LBN F 
00006 CF 08 FB 0048C CALLS 2, WRITE_BLOCK ; 
58 5 4 004C1 MOVL RO, STATUS ; 
3F 58 CE 0044 BLBS STATUS, 60$ ; 
00000254 BF 58 D1 004C7 CMPL TATUS, #596 : 1098 
8 \2 O4ce BNEQ ; 
7E 0254 F C 4D MOVZWL #596, -(SP) ; 1100 
68 1 FB 0405 CALLS #1 18ST OP : 
0000025c = &F 8 D1 00408 57$: CMPL TATUS, #604 + 1101 
OF 12 O4DF BNEG : 
0072013 BF DD 004E1 PUSHL #7512083 : 1102 
000000006 00 01 FB Que? CALLS #1, LIBSSIGNAL F 
11 11 O04E BRB 59§ ; 
38 DD 004FO 58$:  PUSHL STATUS > 1103 
E D4 O04F CLRL. = =( SP) ; 
00729048 BF DD 004F4 PUSHL #7508040 : 
000000006 00 3 FB OO4FA CALL a3, LIBS$SIGNAL F 
00006 CF BA 201 59$:  BICB2 #2. MOUNT_OPTIONS+1 > 1104 
4 04 60$:  CLRL FREE > 1110 
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Be 92:45:50 


(ne), J 
BUFFER 

LBN 

#2, READ BLOCK 
R TATOS 


#7508000 
#3, LIBSSIGNAL 
#16, PROTO_VCB+11 


PYEFERCII. x 
67$ 


z 
-32(B2), R1 
R1, RI 


B2, Ri, X, Bl 


#127, I, 65$ 
L8N 


Jj, 61$ 
FREE, PROTO_VCB+64 
71$ 


#4, MOUNT_OPTIONS, 71$ 
#0, GET_VOLUME_LOCK_NAME 
< (SP) 


S 
GET _VOLUME LOCK 
#3,” a&#SYSSTMKRNL 
RO, STAT 
STATUS, 70S 


ST 
#1, LIBSSTOP 
DEV_CTX, VOL_CTX, RO 
RO, "713 


0405 

#1, LIBSSTOP 

#5. MOUNT OPTIONS+6, 72$ 
#16, PROTO_VCB+11 

= (SP) 


MAKE_DISK_MOUNT 
#3, GaSYSSCMKRNL 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMOUNT.SRCIMOUDK1.B32 


SS 


. 
14 
1b-3¢ =-1984 218: VAX-11 Bliss-32 V4.0-742 Pa 1 
1 ~3eP7 138% 94:18:69 DISKSVMSMASTER: CMOUNT . SRCJMOUDK1.B32:4> 3 
D D MOVL RO, STAT ; 
8 : pe E BLBS = STATUS, Ws : 1170] 
DD O05E PUSHL STATUS : | 
6B 1 Fe E CALLS #1, LIBSSTOP : 
5000006 CF ogncrd GF BEBEE TSS" Pilkag BuisDaLAEO™™ ie 
09 «AA BF Ff PUSHAB PROTO_vcB+2 : 
O¢ DD O5t6 PUSHL #1 ; 
DD 005F PUSHL : 
00724003 BF DD OOSFA PUSHL #7512067 : 
000000006 00 5 FB o639 CALLS #5, LIBSSIGNAL © vas 
0000 3 8 74$: «WORD Save nothing ; 0738 
as a ar : 
7E 04 AC 7D 0060 MOVQ 4 (AP), =(SP) : 
0000v CF 03 FB 00619 CALLS #3, MOUNT_HANDLER : 
04 0061 RET ; 


; Routine Size: 1560 bytes, Routine Base: S$CODE$ + 0000 


; 658 1187 1 


F 14 
1e-3ep-19B6 12:45:56 DISKSYMSMASTER: COUNT. SRCIMOUDK1.B32"4 


; 660 1188 1 

; 661 11 1 ROUTINE MOUNT_HANDLER (SIGNAL, MECHANISM) = 

; 66 1190 1 

; 66 1191 1 S44 

; 664 1138 1! 

; 665 1195 1 ! FUNCTIONAL DESCRIPTION: 

> 666 1194 1! 

; 667 1195 1! This routine is the condition handler for the main disk mount 
; 668 1199 1! code. It undoes any damage done so far and returns the error 
; 669 1197 1! status to the user mode caller. 

> 670 1198 1! 

; 671 1199 1! 

; OF 1200 1 ! CALLING SEQUENCE: 

; 67 1201 1! MOUNT_HANDLER (ARG1, ARG2) 

; 674 1 oe 

s 679 1205 1 ! INPUT PARAMETERS: 

; 676 1206 1! ARG1: address of signal vector 

; Orr 1205 1! ARG2: address of mechanism vector 

; 678 1206 1! 

; 679 1207 1 ! IMPLICIT INPUTS: 

; 680 1208 1! global pointers to blocks allocated 

; 681 94 1! 

; «468 1210 1 ! OUTPUT PARAMETERS: 

; 68 Saunas NONE 

> 684 isi¢ 1! 

3; 685 1213. 1°! IMPLICIT OUTPUTS: 

> 686 1214 1! NONE 

; 687 1215 1! 

; 688 1216 1 ! ROUTINE VALUE: 

; 689 1217 1! SS$_RESIGNAL 

; 690 1218 1! 

; 691 1219 1 ! SIDE EFFECTS: 

; 69 1220 1! necessary cleanups done 

; 69 1221 1! 

3: 694 \ssé 1 f= 

; 695 12 1 

; 696 1224 BEGIN 

; 697 \$$? 

; 698 i 6 MAP 

: 699 1227 SIGNAL : REF BBLOCK, ! signal vector 

3 oe \¢s8 MECHANISM : REF BBLOCK; ! mechanism vector 

; 70 13 0 EXTERNAL 

; 70 \s 1 MOUNT OPTIONS : BITVECTOR, ' command parser aptions 

3 me : $ CLEANOP_FLAGS : BITVECTOR; ! cleanup action flags 

: 706 1 3 EXTERNAL ROUTINE 

5 dh : i LOCK_CLEANUP : NOVALUE; ! cleanup dev and vol locks. 
: 709 1 

; 710 1238 ! Note that cleanup is done if we are unwinding, which occurrs when 
s 7 1239 ! we take an error exit. 

3 re 1240 : 

; 71 1241 
: 716 1 $g IF (.SIGNALCCHFSL_SIG Fi NEQ SS$_UNWIND) 
3: 715 124 AND ((.BBLOCK b3/Gn he L_SIG_NAME), sTosv_sevenityy EQL STSSK_SEVERE) OR 
: 716 1244 (.BBLOCK [SIGNAL CCHFSL_SIG_NAME], STSSV_SEVERITY] EQL STSSK_ERROR)) | 


a 
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MOUDK1 16-Sep-1984 01:18:20 VAX"11 Bliss-32 v4.0-742 23 
04-002 Weasel abe bink5e | NIERSVMGMASTERCCHGUNT SRCIMOUDKT.B32°2 Ca} 


; 717 1245 HEN 
; 718 1 rk LOCK_CLEANUP (); 
3; ne 124 
: £30 1 re SS$_RESIGNAL 
: 721 124 END; ! end of routine MOUNT_HANDLER 
9000 00000 MOUNT_HANDLER: 
«WORD Save arora ine ; 1189 
50 04 AC DO 00002 MOVL SIGNA Rg i: 1242 
00000920 = &F 04 “0 D1 Bp ope CMPL 4(RO), #2336 : 
15 13 it 3 BEQL 2s : 
04 04 Ad 03 00 Fe Bat CMPZV) #0, #3, 4(RO), #4 3: 1243 
8 0 18 BEQL 1$ : 
02 04 Ad 03 2 Fo 001 CMPZV) = #0, #3, 4(RO), #2 3 1244 
12 0001 BNEQ 2$ : 
00006 fF 0 FB 00020 1$: CALLS 3 ~. CLEANUP : 1246 
0 0918 =F 3¢ 99 > 2: MOvZWL $28, RO > 1249 


; Routine Size: 43 bytes, Routine Base: S$CODE$S + 0618 


-EXTRN CLEANUP_FLAGS, LOCK CLEANUP 
: 722 1250 1 


WAWIPoNoTonerery) 


VIFWN—OOONOUS 


NNNANANNNNNN 


SIN NSS SN SSSA AA AAA AAA AMM 
OONAOUNE WN (OO ONAUE WN 0 OONOUS wr 


PAM AVIVIVIU 
DONOUL WN 


S 


POPIPIPOPIPIPINIPIPIPINIPINYIPINYIPINPIPIPPIPUPIPININDININIPUPINOPINPOPIPPNoPy 


Pte oat pet teh tet whee 


ae 


SSN 
oo 


o 


AAAI POPINPONIPIPINIPNOPTY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RIPIPIPIPIPIPIPPIPIPNPINIPYPIPINIDIPIDS 8 a nn nr nt et at tt tS 


WIAA 


S35 


H 14 

16-Sep-1984 01:18:20 VAX=-11 Bliss-32 V4.0-742 P 4 
132388-1382 95:18:80 DISKSVMSMAST R: CMOUNT . SRCJMOUDK1.832;4" 3} 
ROUTINE MAKE_DISK_MOUNT = 

le4¢ 


' 
FUNCTIONAL DESCRIPTION: 


i 
i 
: This routine does all of the data base manipulation needed to get 
} a volume actually mounted. It allocates the real VCB, FCB, and 
; window, and hooks then all together. It also starts up the ACP 
gets the mounted volume List entry made. 
i 
' CALLING SEQUENCE: 
MAKE_DISK_MOUNT () 
i INPUT PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 
: MOUNT parser data base 
own storage of this module 
i OUTPUT PARAMETERS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
! 1 if successful 
status values if not 
i SIDE EFFECTS: 
volume mounted 
— 
BEGIN 
BUILTIN 
INSQUE ; 
LOCAL 
WINDOW_SIZE, ' size in bytes needed for window 
uCcB CB 


: REF BBLOCK, ! pointer to volume U 
: ' Pointer to device ORB 
! pointer to first extent FCB 


! pointer to second extent FCB 


ORB 
EXTENT! _FCB ; 
EXTENT2~F(B : REF BBLOCK: 


EXTERNAL 
SCS$GB_NODENAME : ADDRESSING_MODE (GENERAL), 


identify this node uniquely. 
MOUNT OPTIONS : BITVECTOR, command parser options 
CLEANOP_FLAGS : BITVECTOR, 


f cleanup action flags 
HOME BLOCK : BBLOCK, 
OWNE 
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. 


buffer containing home block 


i 

i 

channel assigned to device 
> i owner UIC from command 
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1h-Se -1984 01:18: VAX-11 Bliss-32 V4.0-742 Page 25 a! 
12-808 =138e 3:18:30 DI SKSVMSMASTERS [MOUNT . SRCJMOUDK1.B832;4 . (83 Vv 
PROTECTION. ' volume snboe otection from command 
: N . ! address of VCB allocated 
REAL_VCB REF BBLOCK watt eee 4 DE (GENERAL) ! add f 
REAL. FCB REF BBLOCK, ' addre FCB allocated 
FAL wCB REF BBLOCK, H oderess of window allocated 
ait GL_VOLUMES ADDRESSING_MODE (ABSOLUTE); 


' count of volumes mounted by process 
EXTERNAL ROUTINE 
STORE 


GET_CRANNELUCB, 
ALLOCATE MEM, 


START_AC 
SET DATACHECK, 


! store device context 

get UCB yn ony to coenne’ 
STiceste system dynamic memory 
start and connect ACP to device 
set volume data check attributes 


LOCR_I : ADDRESSING_MODE (GENERAL), 
' Lock 1/0 database mutex 
UNLOCK_I0DB : steiner cia | (GENERAL) 


unlock 1/6 database mutex 

create logical name and MTL blocks 
ENTER” LOGNAME, ' enter logical name and MTL in Lists 
SEND TERRLOG: send message to error logger 


ALLOC_LOGNAME , 


' Allocate all of the required control blocks. We allocate them in 

' advance to avoid moving to back out of some awkward situations later on. 
ih WS emehdoag is the AQB, which is either found or allocated by 

i oO 


REAL_VCB = ALLOCATE MEM (VCBSC LENGTH, 0); 
REAL VCBCVCB$B_TYPEJ = DYNSC_V 
CHSMOVE (VCBSC~ “LENGTH=11. PROTO. VCB+11, »REAL_VCB+11); 


c—* -MOUNT_OPTIONSCOPT_FORE IGN) 


BEGIN 
REAL_VCBCVCBSL_FCBFL] = REAL_VCBCVCBSL_FCBFLI; 
REAL_VCBCVCBSL_FCBBL) = REAL_VCBCVCBSL_FCBFLI; 


REAL_ FCB = ALLOCATE MEM (FCBSC_LENGTH, 0); 
FCBLFCB$B_T = DYNSC_FCB; 

CHSROVE (FCBSC~ “LENGTH -11, PROTO FCB+ se ;f AL _FCB#11); 

L) = REAL_FCBCFCBSL_W 

FCBSL-W wird: 

L_FCBFL 


: If extension aia Pas allocate room for them and Link them into the List 
{Fg PROTO_FCBE IEF COD _F ILESIZED NEQ 0 


= ALLOCATE ME REN, (FCBSC_LENGTH, 0); 
{FCB YNSC_FCB: 

BSC OPENGTHe 1. BROTOTE FCBE1#11, .EXTENT1_FCB+11); 
BSLEXFCB) = .EXTENTT_FCB; 


i ENABLE KERNEL_HANDLER; 
4 
4 
4 
4 
4 


ee 


Bee Paine se Tee GhA st ER hGaT Secamounk1.es202%" «89 


52 


; 838 1365 4 EXTENT FCBPECBSL_ULELJ = EXTENT1_FCBCFCBSL_WLFLJ; ‘ 
: 9 1 96 4 EXTENT1 FCBLFCBSL_WLBLJ = EXTENT! FCBLF Bs, WLFLJ; ° 
; 840 1 é INSQUE xr exreNy FCB, REAL reek BSL_FCBFLIJY; ‘ 
; 841 1368 4 IF_ .PROTO_FCBE2CFCBSL_FILESIZE] NEQ ; 
; 84 1 ? 4 THEN : 
; 84 1370 BEGIN : 
>; 844 1371 eX TENTS Ce = SLLOEATE MEM (FCBSC_ LENGTH, 0); ‘ 
; 845 1 i EXTENT2_FCBCFCBSB_ TYPE] = DYNSC_FCB; : 
; 846 137 CHSMOVE (F CBSC bERG THI PROTO rCBE2eIt, -EXTENT2_F CB+11); ‘ 
; 847 1374 : EXTENT] _FCBCLFCBSL_EXFCB) = .EXTENT2 FCB; ‘ 
; 848 1375 EXTENT2-FCBCFCBSL_WLFLJ = EXTENT? FCB FeBSL_wLFLJ; : 
3 sep 137 2 EXTENT2 FCB CoSL WLBLJ = EXTENT2 FCBLFCBSL WLFLJ; ¢ 
; 850 137 INSQUE T.EXTENT2_FCB, EXTENT1_FCBCFCBSL_FCBFLJ); ‘ 
; 851 1378 4 END; ‘ 
: 835 1380 e ; 
; 854 1381 WINDOW SIZE = WCBSC_LENGTH + MAXU (.PROTO_WCBCWCBSW_NMAP] + 2, 6) * 6; ‘ 
; 855 1 Hf REAL_WCB = ALLOCATE_MEM (.WINDOW_SIZE, 0); : 
; 856 138 REAL WCBCWCBS$B_TYPE] = DYNSC_WCB; : 
; 857 1384 CHSMOVE (.WINDOW pace tt PROTO_WCB+11, .REAL_WCB+11); ‘ 
> 858 1385 REAL WCSCWCBSL_FCB) = .REAL FCB; : 
; 859 1386 INSQUE (.REAL_QCB, REAL_FCBCFCBSL_WLFLI); : 
; +4 13 END; ‘ 
; o06 : 34 ALLOC_LOGNAME (0); ‘ 
; 864 1391 : ALL data blocks except the AQB are now allocated. First set up the : 
; 865 1 8 ! volume ownership and protection in the VCB. Now hook up the blocks : 
; 866 139 ! to the device data base and start the ACP. ‘ 
: Beb 1398 3 
; 869 1396 UCB = GET FRARNELUCS (. CHANNEL) ; : 
: 870 1332 ORB = .UCBCUCBSL ORB); : 
Py = ai =. Py e 

ta 1398 REAL_VCBLVCBSL_ROTI UCB ; 
; 87 1400 UceruCcRSy Um One) = NOT .MOUNT_OPTIONS COPT_NOUNLOAD]; : 
; 874 1401 ORBCORBSL_OWNER) = .VOLUM c; : 
; 875 1636 IF_.MOUNT-OPTIONSCOPT_OWNER UIC) : 
3 378 bet THEN ORBCORBSL_OWNERJ™= .OWNER_UIC; : 
; 878 1405 2 ORBCORBSV_PROT 16) = 1; : SOGW protection word : 
: 879 1406 T-OPTIONSCOPT_FOREIGN ; 
; 880 140 ORBCORBSW_PROT] = %x'FFOO' ; 
: se! 1on8 ELSE ORBCORBSW a} . HOME PLOCKCHATSU_PROTECTI: : 
; ¢ 140 -MOUNT_OPTIONSCOPT_PROTECTION : 
: 88 1619 THEN ORBCORBSW_PROT] = .PROTECTION; : 
g BBS 1318 wer -MOUNT_OPTIONSCOPT_FOREIGNJ : 
: Bay Veie BEGIN : 
; 889 1218 ! Fill in name used to identify volume for locking purposes. : 
; 890 141 ! This uniquely identifies this volume on this node vor RMS, : 
; «891 1613 ! and qi iainates device naming problems if the drive is 5 
3; 89 141 ! multi-ported. It does not, however, make any attempt to : 
; 89 1039 : generate a useful name for cluster wide access because : 
; 894 1421 ! cluster wide access to structure level 1 volumes is not : 
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supported other than in a one writer, multi-reader mode. 
CHSMOVE (8, SCSS$GB_NODENAME, REAL_VCB CVCBST_VOLCKNAM)); 
(REAL_VCB CVCBST_VOLCKNAM] + 8) =".UCB; 


REAL_WCBCWCB$L_ORGUCB) = .UCB; 
START_ACP (,UCB, .REAL_VCB, AQBSK_F11V1); 


ELSE 
BEGIN 
LOCK 10DB (); 
UCBCOCBSL_VCB) = .REAL vCBs 
UCBCUCBSL“DEVCHAR) = .OCBCUCBSL_DEVCHAR 
OR (DEVSM_MAT OR DEVSM_DIR OR DEVSM_FOR); 


SET _DATACHECK (.UCB, 0); 
UNLOCK 1008 Q; 


IF _.MOUNT OPTIONSCOPT_NOSHARE] AND .CLEANUP_FLAGSCCLF _DEALLOCATE) 
THEN UCBLOCBSV_DEADMOJ = 1; 


IF NOT .MOUNT OPTIONSCOPT WRITE) 
THEN BBLOCK COCBCUCBSL_DEVCHAR], DEV$V_SWL) = 1; 


! Enter the logical name for the volume; bump the user's volume mount count, 
and make the error log entry for the mount. 


ENTER_LOGNAME (.UCB, .REAL_VCB); 
CTLSGC_VOLUMES = .CTLSGL_VOLUMES + 1; 
SEND_ERRLOG (1, .UCB); 


! Increment the refcount, so that it never goes to zero while the device is 
mounted. 


UCBCUCBSW_REFC) = .UCBCUCBSW_REFC] + 1; 
: Store device context if cluster available. 


STORE CONTEXT (); 
RETURN 1; 
END; ! end of routine MAKE_DISK_MOUNT 


-EXTRN SCS$GB_NODENAME 
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3 00006 CF 3 D8 2$: MOVZWL PROTO_WCB+22, R2 : 1381 ; 
C D ADDL2 #2, R : ; 

6 D E CMPL A : F 

3 E BGEGU : : 

5 6 D E MOVL #6, R 3 ; 

& 6 C4 OOOEB 3S: MULL 6. R : ; 

5 CO 000EB ADDL2 #48, WINDOW SIZE : ; 

D4 OOOE CLRL =( SP) + 1382 : 

DD OOF PUSHL WINDOW. SIZE : : 

68 FB OF CALLS #2, ALCOCATE_MEM : ; 

00006 CF DO OO0F MOVL RO, REAL_WCB ; : 

4 00006 CF B 6 FA MOVL REAL B> RO + 1383 ; 

woe 06 0108 SUL? AIT =~ > 1384 

0B A6 00006 CF 98 5 $108 MOVCS R2, PROTO_WCB+11, 11(R6) : ; 
18 A6 6A 00 0010D MOVL. REAL_FCB,~24(R6) + 1385 : 

50 6A 10 ¢1 00111 ADDL3 #16, REAL_FCB, RO > 1386 ; 
60 66 OE 00115 INSQUE (R65, (ROD : ; 

7E D4 00118 4S: CLRL =(SP + 1389 ; 

00006 CF 07 FB OO1IA CALLS #1, ALLOC_LOGNAME ; : 

00006 CF DD OO11F PUSHL (C L + 1396 ; 

00006 CF 01 FB 00123 CALLS #1, GET_CHANNELUCB : ; 

Se 50 D0 01 8 MOVL ; UCB : ; 

50 1¢ A6 DO 00128 MOVL 28(UCB), ORB + 1397 F 

57 68 DO O012F MOVL REAL_VCB,_R7 + 1398 i 

20 A? 56 D0 01 2 MOVL UCB, (R7) : ; 

01 «ag 01 02 EF 00136 EXTZ2V #2, #1, MOUNT_OPTIONS+1, R1 + 1400 3 
51 51 D2 0013¢ MCOML 1. : ; 

01 04 51 FO 0013F INSV. R1. #4, #1, 101(UCB) : : 
60 00006 CF DO 00145 MOVL VOLUME ‘UIC, (O : 1401 ; 

05 02 a9 02 £1 O014A BBC #2, MOONT_OPTIONS+2, 5$ ; 140¢ 3 
60 00006 CF DO O014F MOVL. OWNER_UIC? (OR : 140 ; 

0B AO 01 88 00154 5$ BISB2 #1, 1T(ORB) + 1405 : 

08 01 A9 03 €1 00158 BBC #3. MOUNT OPTIONS+1, 6$ > 1406 ; 
18 AO FFOO 8F BO 9015p MOVW #056, 24TORB) > 1407 ; 

06 11 0016 BRB 7$ : ; 

18 A0 00006 CF BO 00165 6$ MOVW HOME _BLOCK+32, 24(ORB) + 1408 ; 

06 08 A9 01 €1 00168 7$ BBC #1, MOUNT OPTIONS+2, 8$ : 1409 ; 
18 AO 00006 CF 80 00170 MOVW PROTECTION, 2 + 1410 : 

24 01 A9 03 £0 00176 8$ BBS 3, MOUNT OPTIONS+1, 9$ ; 14}2 : 
0080 (C7 000000006 00 08 ; 00178 MOVC3) #8 SCSS6B NODENAME, 128(R7) : 142 ; 
0088 C7 56 DO 0018 MOVL UCB, 136(R7) : 1426 ; 

50 00006 CF DO 0018A MOVL  REAL_WCB, RO > 1428 3 

10 AO 56 D0 O18 MOVL UCB,~16(RO) : ; 

01 DD 00193 PUSHL #1 + 1429 : 

7E 56 7D 00195 mova UCB, (SP) F ; 

00006 CF 0 re 0198 CALLS #3, START_ACP ; 3 

: 11 0019D BRB ; 1412 : 

000000006 00 6 FB OO19F 9S CALLS #0, LOCK_10DB : 14 : 

4 Ab DO 0016 MOVL REAL vCB 5¢(ucB) : 14 ; 

8 A6 01080008 8F CB OO1AA BISL2 #17301512, 56(UCB) > 1436 : 

D4 001B2 CLRL = = (SP) > 1437 ; 

56 DD 001B4 PUSHL UCB ; F 

90006 cr FB 001B6 CALLS #2, SET_DATACHECK : : 
000000006 9 FB 1B CALLS #0, UNLOCK_IODB > 1438 ; 

A 6 4 €1 001C2 10$: BC #4, MOUNT OPTIONS, 11$ > 1441 F 
04 00006 CF 1 €1 001C BBC #1. CLEANOP_FLAGS. 11$ ; : 
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Sa 


#4, 
Ag ROUNT OPTIONS #1, 12$ 


4g vc 
UCB 


ENTER_LOGNAME 
aatri Sot VOLUMES 


ae 
2 SEND_ERRLOG 
#0, STORE CONTEXT 
#1, RO 


Save nothing 
-(SP) 


SP 
4(AP), =(SP) 
#3, YéRner _HANDLER 
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: 30 1368 } ROUTINE KERNEL_HANDLER (SIGNAL, MECHANISM) : NOVALUE = | 
3 946 1290 | t+ | 
> (945 1471 1! 

> 946 are 1 | FUNCTIONAL DESCRIPTION: 
3; 947 1475 1! , 

; 948 1474 1! This routine is the condition handler for all of the kernel mode 
; 949 1475 1! code. It undoes any damage done so far end returns the error 

> 950 1476 1! status to the user mode caller. 

; 95) 1477 1! 

3 926 1478 1! 

; 1479 1 ! CALLING SEQUENCE: 

: 954 1480 1! KERNEL_HANDLER (ARG1, ARG2) 

> 955 1481 1! 

; 956 re 1 ! INPUT PARAMETERS: 

: 957 re 1! ARGi: address of signal vector 

; 958 1484 1! ARG2: address of mechanism vector 

; 959 1485 1! 

; 960 1486 1 ! IMPLICIT INPUTS: 

; 961 1487 1! global pointers to blocks allocated 

; 96 1488 1! 

; 96 1489 1 ! OUTPUT PARAMETERS: 

> 964 1490 1! NONE 

; 965 1491 1°! 

> 966 1436 1 ! IMPLICIT OUTPUTS: 

: 967 1493 1! NONE 
; 968 1494 1 | 
; 969 1495 1 ! ROUTINE VALUE: 
: 970 1496 1! NONE 

: 971 1497 1! | 
3; 972 1498 1 ! SIDE EFFECTS: ‘ 

; 973 1499 1! stack unwound, allocations undone 

3 974 1500 1! 

s 975 1501 1 !-- 

3; 976 1308 1 

: 977 1503 2 BEGIN 

; 978 1504 2 

: 979 1505 5 MAP | 
3; 980 1506 SIGNAL : REF BBLOCK, ! signal vector 
s 938i 1507 2 MECHANISM : REF BBLOCK; ! mechanism vector 

: 982 1508 § 
; 983 1509 LOCAL 
3 «984 1510 : REF BBLOCK, ! foinser to scan system Lists 
; «985 1511 UCB : REF BBLOCK; ! UCB being mounted 
; 986 1316 

3; 987 151 EXTERNAL 

: 988 1514 MOUNT OPTIONS : BITVECTOR, ' command parser options 

: 989 1515 CLEANOP_FLAGS : BITVECTOR, ! cleanup action flags 

; 990 1516 CHANNEL, ! channel assigned to device 

: 991 1517 MAILBOX_CHANNEL, ' channel number of ACP mailbox 

: 99 1518 REAL_VCB : REF BBLOCK, ! address of VCB allocated 

: 99 1519 REAL-FCB REF BBLOCK, | address of FCB allocated | 
; 994 1520 REAL_WCB REF BBLOCK, ! address of window allocated 

3 995 1521 REAL-A REF BBLOCK, ! address of AQB allocated | 
; 996 15 ¢ MTL_ENTRY REF BBLOCK, ! address of mounted volume List entry 
; 997 15 1OCSGL_AQBLIST REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
; 998 1524 ! system AQB List 
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EXTERNAL ROUTINE 


LOCK_ CLEANUP : NOVALUE, ! he ty device lock on errors. 
GET_CHANNELUCB, ! get UCB address of channel 
LOCR_10DB : ADDRESSING_MODE (GENERAL), 

! interlock System I/0 database 
UNLOCK_I0DB : ADDRESSING_MODE (GENERAL), 

' unlock system 1/0 database 
DEALLOCATE_MEM; ! deallocate system dynamic memory 


Deallocate whatever control blocks exist to wherever they came from. 


fF SIGHALCCHP SL. 516_WANE? NEQ SS$_UNWIND 
BEGIN 


| 
| 
IF .SIGNALCCHFS$L_SIG_ARGS] NEQ 3 
THEN BUG_CHECK (ONXSIGNAL, FATAL, ‘Unexpected signal in MOUNT’); 


KERNEL_CALL (LOCK_CLEANUP) ; 
! If there is a mailbox in existence, deassign its channel, thereby 
deleting the mailbox. 
i CLEANUP PLAGSECLE _DEASSAOK] 
SDASSGN (CHAN = .MAILBOX_CHANNEL); 
Clean up the UCB. 


UCB = GET_CHANNELUCB (.CHANNEL); 
LOCK_10DB" (); 
BBLOtK [ 


UCB CUCBSL_DEVCHAR], DEVS$V_MNTJ = 0; 
UCBCUCBSL_VCB) = 0: 
UNLOCK_10B8 (); 


! If we have created an AQB but no ACP, we must remove the AQB from the 
system List. 


IF_.CLEANUP_FLAGSCCLF _DELAQB] 
THEN 


BEGIN 

LOCK_10DB (); 

P = TIOC$GL_AQBLIST; 
F .P EQL .REAL_AQB 


N 
EL ge OC SOL -AGBLIST = ,REAL_AQBCAQBS$L_LINK] 


UNTIL .PCAQBSL_LINK] EQL .REAL_AQB 
DO P = .PCAQBSC_LINK); 


S23 


DK1 3 {° 1984 
- e = 
v04=002 13-8 08-1 3b 
; 1056 1 5 PCAQBSL LINK] = .REAL_AQBCAQB$L_LINKI; 
1 ER Hi 
: 1058 1 84 4 DEALLOCATE aie (.REAL_AQB, 0); 
; 1059 1585 4 UNLOCK_I0DB ( 
; 1060 1286 ENDS 
: 1061 158 
: 1066 1588 
 Toea 125 THEN BEACLOCATE MEM (.REAL_VCB, 0): 
> 1065 1591 , 
: Toer 1398 THEN DEACLOCATE MEM (.REAL_FCB, 0): 
3 1068 1892 
3 1069 1595 IF .REAL_WCB NEQ 0 
: 1070 1596 THEN DEACLOCATE MEM (.REAL_WCB, 0); 
3 1071 1597 
3 1078 1598 IF .MTL_ENTRY NEQ 0 
: 107 1599 THEN DEALLOCATE_MEM (.MTL_ENTRY, 1); 
3 1074 1600 
: 1075 1601 i Return the condition code in RO. 
: 1076 1602 
: 1077 160 
: 1078 1604 SECHMAL SAC CHP SE. _MCH_SAVROJ = .SIGNALCCHFSL_SIG_NAME); 
: 1079 1605 SUNWIND () 
: 1080 1606 3 
3 1081 1607 2 END; 
: 1082 1608 1 END; ! end of routine 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
007¢ 00000 KERNELHANDLER: 
56 00000000G 9F 9E 00002 MOVAB 
55 000000006 00 9€ 00009 OVAB 
54 000000006 00 9% Bae MOVAB 
53 0000G CF 43 001 MOVAB 
50 04 AC 00 0001 MOVL 
00000920 —=s:-&BFF 04 ad O01 8 CAPL 
01 12 00 BNEQ 
04 96 A RET 
03 60 D1 028 1$ CMPL 
04 13 000 BEQL 
per 9 BUGW 
0000* WORD 
7E D4 6 2s: CLRL 
5E bo PUSHL 
0000G CF 9F PUSHAB 
coopers oF ; fe 0 CALLS 
08 00006 CF E 04 BBC 
000G Cf DD O06 PUSHL 
000000006 00 1 FB 0004D CALLS 
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KERNEL_HANDLER 


MAILBOX_CHANNEL 
REAL_AQS, MTL 
1OC$GL 
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CMOUNT. SRC JMOUDK1.B32;4 


AQBLIST, DEALLOCATE_MEM 


BUG$ UAKS NAL SYSSDASSGN" 


SYSSONWIN 


ve R2,R3,R4,R5, Re 
sa yecsel jooens” *° 
UNLOCK AI 


LOCK 1008 
BAN FEM, R3 


aaah #2336 
(RO), #3 
2s 


<BUGS$_UNXSIGNAL ! 4> 
-(SP)~ 


S 
ay. BasTaC 
CLEANUP. FLAGS. 3$ 
RALLBOR CHARNEL 
EY SSDASSON 
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MOUDK1 16-56 Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 34 
v04=002 1 ~300n 138% 9}: 18: $0 DISKSVMSMASTER: CMOUNT . SRCJMOUDK1.B32;4 49 a 
00006 CF DD 00054 3$:  -PUSHL CHANNEL : 1559 
00006 cf 1 FB 038 CALLS #1, GET CHANNELUCB : 
2 0D 0 MOVL RO, UCB ; | 
64 FB 0006 CALLS #0, LOCK 1008 : 1560 
3A 2 BA 0006 BICB2 of (utB) + 1561 
34 A2 D4 0006 CLRL.  52¢uCB) ; 136¢ 
65 Fe 6A CALLS #0, UNLOCK_I0DB : 156 
31 00006 CF E $0 BC #2, CLEANUP FLAGS, 7$ F 1570 
4 FB CALLS #0. LOCK IO + 157 
0 66 DO 00076 MOVL  IOC$GL_AQBLIST, P : 157% 
00006 cr D6 19 mOVL REAL AOS, Ri t 1575 
be iF 1 BNEG 4§ : 
66 10 al 2: 00 3 MOVL 16R1), 1OCS$GL_AQBLIST : 1577 
51 10 AO D1 00089 4$ CMPL =-:«416(P), RI + 1580 
06 13 O08D BEQL 6 5$ : 
50 10 AO D0 0008F MOVL 16(P), P + 1581 
F411 90093 BRB 4$ ; 
10 AO 10 Ai 00 00095 Ss: MOVL  16(R1), 16(P) * 1582 
7E D4 OOO9A 68: CLRL = = (SP) > 1584 
51 pd 0009C PUSHL 1 : 
63 02 FB O0095 CALLS #2, DEALLOCATE_MEM ; 
65 00 FB 000A1 CALLS #0, UNLOCK_IOD : 1585 
50 00006 ff 0 aie 7$: novi REAL_VCB, RO ; 1589 
ze D4 OOOAB CLRL = = (SP) + 1590 
50 DD OOOAD PUSHL ; 
63 02 FB OOOAE CALLS #2, DEALLOCATE_MEM : 
50 00006 cr og 9008 8$: HOV REAL , RO : 1592 
o d4 00089 CLRL = = (SP) : 1593 
50 DD 00088 PUSHL R ; 
63 02 FB 90080 CALLS #2, DEALLOCATE_MEM : 
50 00006 cr 00 90¢0 9$: OVE REAL_WCB, RO : 1595 
re D4 iit CLRL = = (SP) : 15% 
50 DD 000C9 PUSHL R : 
63 02 FB 000CB CALLS #2, DEALLOCATE_MEM ; 
50 00006 cf DO QOOOCE 10$:  MOVL $$ MTL_ENTRY, RO : 1598 
7 13 000D BEQL 1s : 
gi bd 990 PUSHL : 1599 
9 DD 0000 PUSHL 5 ; 
63 02 FB 9009 CALLS @# eyQEALLOCATE. MEM ; 
0 04 AC 7D 000DC 118: mova > 1604 
oc Al 4 Ad b0 E MOVL SIGNAL 12(R1) : 
43 C O00E CLRO Ole > 1605 
000000006 00 02 FB OE CALLS #2, SYSSUNWIND : 
04 OOOEE RET : 1608 


; Routine Size: 239 bytes, Routine Base: S$CODES + 0850 


1083 1609 
1084 1610 ND 
1085 1611 0 ELUDOM 


<= 


ace eon kN Pin a _ Ssvtle IPE RES he TS * 
F 15 | 
oS02 1$-$e0- 19ke $3ic8:52 | NNesum hastens chooNT SecamounK1 83264" cas 


=2 


-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 


: Name Bytes Attributes 
> SOWNS 360 NOVEC. WRT, RD ,NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 1 NOVEC,NOWRT, RD ‘NOEKE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2367 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
3 ssoaunee Syahe(§ eocescce Pages Processing 
$ File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 120 0 1000 00:02.0 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOUDK1/0BJ=O0BJ$:MOUDK1 MSRC$:MOUDK1/UPDATE=(ENHS$:MOUDK1) 
; Size: 2367 code + 372 data bytes 

un Time 00:47.1 


oe Ttee: 01:29.3 
Lines/CPU Min: 05¢ 
ey A aes 20816 
eee | Used: 424 pages 
Compilation Complete 


AH-BT13A-SE 
VAX/VMS V4.0 


L EQUIPMENT 
ENTIAL .AND 


24 : ’ CORPORATION 


DI 
CO PROPRIETARY 


ITA 
FID 


